home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1999 #2 / Amiga Plus CD - 1999 - No. 2.iso / Magazin / LibGuide / CheckYourLibraries < prev    next >
Text File  |  1999-01-09  |  2KB  |  70 lines

  1. ; CheckYourLibs V2.1
  2. ; © 1998-1999 by Michaela Prüß & Heiko Schröder
  3. ; 2.01 keine Auflistung von ~(#?.info|#?.bak|#?.readme|#?.sig)
  4. ; 2.1  removed stupid bug (www.amigasystem.org)
  5.  
  6.  
  7. Echo "Library-Check at your system*NV2.1 © Michaela Prüß & Heiko Schröder 98/99"
  8. Echo "*NThe report will be written in RAM: and you can't stop the version scan!"
  9. Ask "Do you want to check your system for libraries? (Y/N)"
  10. If NOT WARN=5
  11.    Echo "CANCEL ..."
  12.    C:Quit
  13. EndIf 
  14.  
  15. C:FailAt 100
  16. C:Copy DVC RAM:
  17. C:Copy C:Search RAM:
  18. C:Copy Scripts/LibList.dvc RAM:
  19. C:Copy MyCheck RAM:
  20. C:Copy MyCheck.rexx RAM:
  21. C:Copy MyConvert.rexx RAM:
  22.  
  23. Echo "List of all your libraries*N--------------------------*N" >Ram:Lib-List
  24. Echo "List of your old libraries*N--------------------------*N" >Ram:Lib-OldList
  25. Echo "List of new libraries*NPlease contact me: age@thepentagon.com*Nand send this file to me. Thanks.*N--------------------------" >Ram:Lib-NewList
  26. Echo "For LibGuide (01/99) I scan infos about your system:" >>Ram:lib-NewList
  27. Version >>Ram:Lib-NewList
  28. C:CPU >>Ram:Lib-NewList
  29.  
  30. Echo "Starting Rexx"
  31. Sys:System/RexxMast >NIL:
  32.  
  33. Echo "Looking for Libs:#?.library"
  34. C:List Libs: PAT=#?.library~(#?info|#?bak|#?readme|#?sig) ALL quick nohead LFormat="Execute RAM:MyCheck %s%s" >Ram:List1
  35.  
  36. Sort Ram:List1 Ram:List1
  37.  
  38. Echo "Starting Check..."
  39. Protect MyCheck +s
  40. Execute Ram:List1
  41. Echo "*N*NREADY!*NThe result can be found at Ram:Lib-OldList and Ram:Lib-NewList ..."
  42. Echo "Please send me the RAM:Lib-NewList for updating the Libraries.guide.*N"
  43. Delete Ram:List1 QUIET
  44. Delete Ram:DVC QUIET
  45. Delete Ram:Search QUIET
  46. Delete Ram:LibList.dvc QUIET
  47. Delete Ram:MyCheck QUIET
  48. Delete Ram:MyCheck.rexx QUIET
  49. Delete Ram:MyConvert.rexx QUIET
  50.  
  51. Ask "Please press ENTER for next Step."
  52. C:CLS
  53.  
  54. ; Library Online Update Generating Script
  55.  
  56. Echo "Online Library Update Form Generator 1.01*N© 98/99 by Heiko Schröder*N"
  57. Ask "Next Step... *NDo you want to create a Form for updating libraries online at http://amigasystem.org? (Y/N)"
  58. If NOT WARN=5
  59.    Echo "CANCEL ..."
  60.    Delete Ram:Lib-OnlineUpdate QUIET
  61.    C:Quit
  62. EndIf
  63. Echo "Generating Form..."
  64. rx MyOnlineUpdate.rexx
  65.  
  66. Delete Ram:Lib-OnlineUpdate QUIET
  67. Echo "Ready. Please load RAM:Lib-OnlineUpdate.html in your browser and follow the instructions."
  68. Ask "*NPress ENTER to end..."
  69. Wait 2 secs
  70.